home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / datenbanken / afile / example / disksprint.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-09  |  353b  |  25 lines
  1. /*
  2.  * This is a sample script which is called to print records
  3.  */
  4.  
  5. SIGNAL ON ERROR
  6. OPTIONS RESULTS
  7. ADDRESS "AFile_rexx"
  8.  
  9. /* read data from record */
  10.  
  11. "GETFIELD ARTIST"
  12. Artist = STRIP( RESULT )
  13. "GETFIELD ALBUM"
  14. Album = STRIP( RESULT )
  15. "GETFIELD YEAR"
  16. Year = STRIP( RESULT )
  17.  
  18. SAY Artist || ', ' || Album || ' (' || Year || ')'
  19.  
  20. /* end */
  21.  
  22. ERROR:
  23. EXIT 0
  24.  
  25.